VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmINV300 
   BackColor       =   &H00800000&
   Caption         =   " INV300"
   ClientHeight    =   8010
   ClientLeft      =   225
   ClientTop       =   555
   ClientWidth     =   11520
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   ScaleHeight     =   8010
   ScaleWidth      =   11520
   Begin VB.CommandButton cmdExit 
      Caption         =   "&Exit"
      Height          =   345
      Left            =   5310
      TabIndex        =   55
      Top             =   7575
      Width           =   1140
   End
   Begin MSAdodcLib.Adodc Adodc4 
      Height          =   345
      Left            =   7980
      Top             =   105
      Visible         =   0   'False
      Width           =   2010
      _ExtentX        =   3545
      _ExtentY        =   609
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   8
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   1
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   ""
      OLEDBString     =   ""
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   ""
      Caption         =   "4.History"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
   Begin MSAdodcLib.Adodc Adodc3 
      Height          =   375
      Left            =   6450
      Top             =   90
      Visible         =   0   'False
      Width           =   2070
      _ExtentX        =   3651
      _ExtentY        =   661
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   8
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   1
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   ""
      OLEDBString     =   ""
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   ""
      Caption         =   "3.Lot No"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
   Begin MSAdodcLib.Adodc Adodc2 
      Height          =   360
      Left            =   4830
      Top             =   75
      Visible         =   0   'False
      Width           =   2250
      _ExtentX        =   3969
      _ExtentY        =   635
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   8
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   1
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   ""
      OLEDBString     =   ""
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   ""
      Caption         =   "2.Warehouse"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
   Begin MSAdodcLib.Adodc Adodc1 
      Height          =   330
      Left            =   3675
      Top             =   90
      Visible         =   0   'False
      Width           =   1920
      _ExtentX        =   3387
      _ExtentY        =   582
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   8
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   1
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   ""
      OLEDBString     =   ""
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   ""
      Caption         =   "1.IIM"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
   Begin TabDlg.SSTab TabInventory 
      Height          =   5940
      Left            =   195
      TabIndex        =   2
      Top             =   1560
      Width           =   11280
      _ExtentX        =   19897
      _ExtentY        =   10478
      _Version        =   393216
      Tabs            =   4
      Tab             =   2
      TabsPerRow      =   4
      TabHeight       =   520
      TabCaption(0)   =   "Item"
      TabPicture(0)   =   "frmINV300.frx":0000
      Tab(0).ControlEnabled=   0   'False
      Tab(0).Control(0)=   "lbl(6)"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "lbl(2)"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).Control(2)=   "lbl(3)"
      Tab(0).Control(2).Enabled=   0   'False
      Tab(0).Control(3)=   "lbl(4)"
      Tab(0).Control(3).Enabled=   0   'False
      Tab(0).Control(4)=   "lbl(5)"
      Tab(0).Control(4).Enabled=   0   'False
      Tab(0).Control(5)=   "lbl(7)"
      Tab(0).Control(5).Enabled=   0   'False
      Tab(0).Control(6)=   "lbl(8)"
      Tab(0).Control(6).Enabled=   0   'False
      Tab(0).Control(7)=   "lbl(9)"
      Tab(0).Control(7).Enabled=   0   'False
      Tab(0).Control(8)=   "lbl(10)"
      Tab(0).Control(8).Enabled=   0   'False
      Tab(0).Control(9)=   "lbl(11)"
      Tab(0).Control(9).Enabled=   0   'False
      Tab(0).Control(10)=   "lbl(12)"
      Tab(0).Control(10).Enabled=   0   'False
      Tab(0).Control(11)=   "lbl(13)"
      Tab(0).Control(11).Enabled=   0   'False
      Tab(0).Control(12)=   "lbl(14)"
      Tab(0).Control(12).Enabled=   0   'False
      Tab(0).Control(13)=   "lbl(15)"
      Tab(0).Control(13).Enabled=   0   'False
      Tab(0).Control(14)=   "lbl(16)"
      Tab(0).Control(14).Enabled=   0   'False
      Tab(0).Control(15)=   "lbl(17)"
      Tab(0).Control(15).Enabled=   0   'False
      Tab(0).Control(16)=   "lbl(18)"
      Tab(0).Control(16).Enabled=   0   'False
      Tab(0).Control(17)=   "lbl(19)"
      Tab(0).Control(17).Enabled=   0   'False
      Tab(0).Control(18)=   "lbl(21)"
      Tab(0).Control(18).Enabled=   0   'False
      Tab(0).Control(19)=   "txtIMITD"
      Tab(0).Control(19).Enabled=   0   'False
      Tab(0).Control(20)=   "txtIMITN"
      Tab(0).Control(20).Enabled=   0   'False
      Tab(0).Control(21)=   "cboIMITN"
      Tab(0).Control(21).Enabled=   0   'False
      Tab(0).Control(22)=   "txtIMLDT"
      Tab(0).Control(22).Enabled=   0   'False
      Tab(0).Control(23)=   "cmdIIMWH"
      Tab(0).Control(23).Enabled=   0   'False
      Tab(0).Control(24)=   "cmdIIMLot"
      Tab(0).Control(24).Enabled=   0   'False
      Tab(0).Control(25)=   "cmdIIMHis"
      Tab(0).Control(25).Enabled=   0   'False
      Tab(0).Control(26)=   "txtIMTYP"
      Tab(0).Control(26).Enabled=   0   'False
      Tab(0).Control(27)=   "txtTPDSC"
      Tab(0).Control(27).Enabled=   0   'False
      Tab(0).Control(28)=   "txtIMCLC"
      Tab(0).Control(28).Enabled=   0   'False
      Tab(0).Control(29)=   "txtCLDSC"
      Tab(0).Control(29).Enabled=   0   'False
      Tab(0).Control(30)=   "txtIMPGC"
      Tab(0).Control(30).Enabled=   0   'False
      Tab(0).Control(31)=   "txtIMOBU"
      Tab(0).Control(31).Enabled=   0   'False
      Tab(0).Control(32)=   "txtIMRCU"
      Tab(0).Control(32).Enabled=   0   'False
      Tab(0).Control(33)=   "txtIMISU"
      Tab(0).Control(33).Enabled=   0   'False
      Tab(0).Control(34)=   "txtIMAJU"
      Tab(0).Control(34).Enabled=   0   'False
      Tab(0).Control(35)=   "txtIMOBW"
      Tab(0).Control(35).Enabled=   0   'False
      Tab(0).Control(36)=   "txtIMRCW"
      Tab(0).Control(36).Enabled=   0   'False
      Tab(0).Control(37)=   "txtIMISW"
      Tab(0).Control(37).Enabled=   0   'False
      Tab(0).Control(38)=   "txtIMAJW"
      Tab(0).Control(38).Enabled=   0   'False
      Tab(0).Control(39)=   "txtIMSLU"
      Tab(0).Control(39).Enabled=   0   'False
      Tab(0).Control(40)=   "txtIMYSU"
      Tab(0).Control(40).Enabled=   0   'False
      Tab(0).Control(41)=   "txtIMSLW"
      Tab(0).Control(41).Enabled=   0   'False
      Tab(0).Control(42)=   "txtIMYSW"
      Tab(0).Control(42).Enabled=   0   'False
      Tab(0).Control(43)=   "txtOnhandU"
      Tab(0).Control(43).Enabled=   0   'False
      Tab(0).Control(44)=   "txtIMOOU"
      Tab(0).Control(44).Enabled=   0   'False
      Tab(0).Control(45)=   "txtAvailableU"
      Tab(0).Control(45).Enabled=   0   'False
      Tab(0).Control(46)=   "txtOnhandW"
      Tab(0).Control(46).Enabled=   0   'False
      Tab(0).Control(47)=   "txtIMOOW"
      Tab(0).Control(47).Enabled=   0   'False
      Tab(0).Control(48)=   "txtAvailableW"
      Tab(0).Control(48).Enabled=   0   'False
      Tab(0).Control(49)=   "txtIMYIW"
      Tab(0).Control(49).Enabled=   0   'False
      Tab(0).Control(50)=   "txtIMYIU"
      Tab(0).Control(50).Enabled=   0   'False
      Tab(0).ControlCount=   51
      TabCaption(1)   =   "Warehouse"
      TabPicture(1)   =   "frmINV300.frx":001C
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "grdWarehouse"
      Tab(1).Control(0).Enabled=   0   'False
      Tab(1).Control(1)=   "cmdWHLot"
      Tab(1).Control(1).Enabled=   0   'False
      Tab(1).Control(2)=   "cmdWHHis"
      Tab(1).Control(2).Enabled=   0   'False
      Tab(1).ControlCount=   3
      TabCaption(2)   =   "Lot No"
      TabPicture(2)   =   "frmINV300.frx":0038
      Tab(2).ControlEnabled=   -1  'True
      Tab(2).Control(0)=   "grdLot"
      Tab(2).Control(0).Enabled=   0   'False
      Tab(2).ControlCount=   1
      TabCaption(3)   =   "History"
      TabPicture(3)   =   "frmINV300.frx":0054
      Tab(3).ControlEnabled=   0   'False
      Tab(3).Control(0)=   "grdHistory"
      Tab(3).ControlCount=   1
      Begin VB.TextBox txtIMYIU 
         Height          =   330
         Left            =   -72810
         TabIndex        =   57
         Top             =   3900
         Width           =   1035
      End
      Begin VB.TextBox txtIMYIW 
         Height          =   330
         Left            =   -71640
         TabIndex        =   56
         Top             =   3870
         Width           =   1035
      End
      Begin VB.CommandButton cmdWHHis 
         Caption         =   "By History"
         Height          =   345
         Left            =   -69195
         TabIndex        =   54
         Top             =   5370
         Width           =   1215
      End
      Begin VB.CommandButton cmdWHLot 
         Caption         =   "By Lot No"
         Height          =   345
         Left            =   -70935
         TabIndex        =   53
         Top             =   5370
         Width           =   1215
      End
      Begin MSDataGridLib.DataGrid grdWarehouse 
         Bindings        =   "frmINV300.frx":0070
         Height          =   4635
         Left            =   -74820
         TabIndex        =   51
         Top             =   555
         Width           =   10980
         _ExtentX        =   19368
         _ExtentY        =   8176
         _Version        =   393216
         BackColor       =   -2147483624
         HeadLines       =   1
         RowHeight       =   15
         FormatLocked    =   -1  'True
         BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ColumnCount     =   13
         BeginProperty Column00 
            DataField       =   ""
            Caption         =   ""
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column01 
            DataField       =   "WMWHC"
            Caption         =   "WH code"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column02 
            DataField       =   "WMDSC"
            Caption         =   "W/H "
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column03 
            DataField       =   "IWOBU"
            Caption         =   "OB Unt"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column04 
            DataField       =   "IWOBW"
            Caption         =   "OB Wgt"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column05 
            DataField       =   "IWRCU"
            Caption         =   "RC Unt"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column06 
            DataField       =   "IWRCU"
            Caption         =   "RC Wgt"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column07 
            DataField       =   "IWISU"
            Caption         =   "IS Unt"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column08 
            DataField       =   "IWISW"
            Caption         =   "IS Wgt"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column09 
            DataField       =   "IWAJU"
            Caption         =   "AJ Unt"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column10 
            DataField       =   "IWAJW"
            Caption         =   "AJ Wgt"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column11 
            DataField       =   "OnhandU"
            Caption         =   "Bal Unt"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column12 
            DataField       =   "OnhandW"
            Caption         =   "Bal Wgt"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            BeginProperty Column00 
               ColumnWidth     =   14.74
            EndProperty
            BeginProperty Column01 
               ColumnWidth     =   14.74
            EndProperty
            BeginProperty Column02 
               ColumnWidth     =   1739.906
            EndProperty
            BeginProperty Column03 
               ColumnWidth     =   824.882
            EndProperty
            BeginProperty Column04 
               ColumnWidth     =   870.236
            EndProperty
            BeginProperty Column05 
               ColumnWidth     =   884.976
            EndProperty
            BeginProperty Column06 
               ColumnWidth     =   824.882
            EndProperty
            BeginProperty Column07 
               ColumnWidth     =   824.882
            EndProperty
            BeginProperty Column08 
               ColumnWidth     =   854.929
            EndProperty
            BeginProperty Column09 
               ColumnWidth     =   884.976
            EndProperty
            BeginProperty Column10 
               ColumnWidth     =   840.189
            EndProperty
            BeginProperty Column11 
               ColumnWidth     =   794.835
            EndProperty
            BeginProperty Column12 
               ColumnWidth     =   975.118
            EndProperty
         EndProperty
      End
      Begin VB.TextBox txtAvailableW 
         Height          =   330
         Left            =   -67125
         TabIndex        =   50
         Top             =   4185
         Width           =   975
      End
      Begin VB.TextBox txtIMOOW 
         Height          =   330
         Left            =   -67125
         TabIndex        =   49
         Top             =   3675
         Width           =   975
      End
      Begin VB.TextBox txtOnhandW 
         Height          =   330
         Left            =   -67125
         TabIndex        =   48
         Top             =   3225
         Width           =   975
      End
      Begin VB.TextBox txtAvailableU 
         Height          =   330
         Left            =   -68280
         TabIndex        =   47
         Top             =   4215
         Width           =   975
      End
      Begin VB.TextBox txtIMOOU 
         Height          =   330
         Left            =   -68280
         TabIndex        =   46
         Top             =   3720
         Width           =   975
      End
      Begin VB.TextBox txtOnhandU 
         Height          =   330
         Left            =   -68280
         TabIndex        =   45
         Top             =   3240
         Width           =   975
      End
      Begin VB.TextBox txtIMYSW 
         Height          =   330
         Left            =   -71640
         TabIndex        =   44
         Top             =   5025
         Width           =   1035
      End
      Begin VB.TextBox txtIMSLW 
         Height          =   330
         Left            =   -71640
         TabIndex        =   43
         Top             =   4650
         Width           =   1035
      End
      Begin VB.TextBox txtIMYSU 
         Height          =   330
         Left            =   -72810
         TabIndex        =   42
         Top             =   5055
         Width           =   1035
      End
      Begin VB.TextBox txtIMSLU 
         Height          =   330
         Left            =   -72810
         TabIndex        =   41
         Top             =   4665
         Width           =   1035
      End
      Begin VB.TextBox txtIMAJW 
         Height          =   330
         Left            =   -71640
         TabIndex        =   38
         Top             =   4260
         Width           =   1035
      End
      Begin VB.TextBox txtIMISW 
         Height          =   330
         Left            =   -71640
         TabIndex        =   37
         Top             =   3510
         Width           =   1035
      End
      Begin VB.TextBox txtIMRCW 
         Height          =   330
         Left            =   -71640
         TabIndex        =   36
         Top             =   3120
         Width           =   1035
      End
      Begin VB.TextBox txtIMOBW 
         Height          =   330
         Left            =   -71640
         TabIndex        =   35
         Top             =   2745
         Width           =   1035
      End
      Begin VB.TextBox txtIMAJU 
         Height          =   330
         Left            =   -72810
         TabIndex        =   34
         Top             =   4290
         Width           =   1035
      End
      Begin VB.TextBox txtIMISU 
         Height          =   330
         Left            =   -72810
         TabIndex        =   33
         Top             =   3540
         Width           =   1035
      End
      Begin VB.TextBox txtIMRCU 
         Height          =   330
         Left            =   -72810
         TabIndex        =   32
         Top             =   3150
         Width           =   1035
      End
      Begin VB.TextBox txtIMOBU 
         Height          =   330
         Left            =   -72810
         TabIndex        =   27
         Top             =   2775
         Width           =   1035
      End
      Begin VB.TextBox txtIMPGC 
         Height          =   315
         Left            =   -73995
         TabIndex        =   26
         Top             =   1920
         Width           =   795
      End
      Begin VB.TextBox txtCLDSC 
         Height          =   315
         Left            =   -68820
         TabIndex        =   25
         Top             =   1425
         Width           =   1935
      End
      Begin VB.TextBox txtIMCLC 
         Height          =   315
         Left            =   -69645
         TabIndex        =   24
         Top             =   1440
         Width           =   795
      End
      Begin VB.TextBox txtTPDSC 
         Height          =   315
         Left            =   -73170
         TabIndex        =   23
         Top             =   1440
         Width           =   1935
      End
      Begin VB.TextBox txtIMTYP 
         Height          =   315
         Left            =   -74010
         TabIndex        =   22
         Top             =   1440
         Width           =   795
      End
      Begin VB.CommandButton cmdIIMHis 
         Caption         =   "By History"
         Height          =   345
         Left            =   -68790
         TabIndex        =   21
         Top             =   5520
         Width           =   1215
      End
      Begin VB.CommandButton cmdIIMLot 
         Caption         =   "By Lot No"
         Height          =   345
         Left            =   -70530
         TabIndex        =   20
         Top             =   5535
         Width           =   1215
      End
      Begin VB.CommandButton cmdIIMWH 
         Caption         =   "By Warehouse"
         Height          =   345
         Left            =   -72210
         TabIndex        =   19
         Top             =   5520
         Width           =   1215
      End
      Begin VB.TextBox txtIMLDT 
         Height          =   315
         Left            =   -69600
         TabIndex        =   18
         Top             =   1965
         Width           =   2760
      End
      Begin MSDataListLib.DataCombo cboIMITN 
         Bindings        =   "frmINV300.frx":0085
         Height          =   315
         Left            =   -71775
         TabIndex        =   14
         Top             =   675
         Visible         =   0   'False
         Width           =   3750
         _ExtentX        =   6615
         _ExtentY        =   556
         _Version        =   393216
         ListField       =   "IMITD"
         BoundColumn     =   "IMITN"
         Text            =   ""
      End
      Begin VB.TextBox txtIMITN 
         Alignment       =   1  'Right Justify
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   288
         Left            =   -71760
         TabIndex        =   4
         Top             =   660
         Width           =   1200
      End
      Begin VB.TextBox txtIMITD 
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   288
         Left            =   -70515
         Locked          =   -1  'True
         TabIndex        =   3
         Top             =   660
         Width           =   2505
      End
      Begin MSDataGridLib.DataGrid grdHistory 
         Bindings        =   "frmINV300.frx":009A
         Height          =   5310
         Left            =   -74820
         TabIndex        =   52
         Top             =   420
         Width           =   10740
         _ExtentX        =   18944
         _ExtentY        =   9366
         _Version        =   393216
         BackColor       =   -2147483624
         HeadLines       =   1
         RowHeight       =   15
         FormatLocked    =   -1  'True
         BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ColumnCount     =   8
         BeginProperty Column00 
            DataField       =   ""
            Caption         =   ""
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column01 
            DataField       =   "THDTE"
            Caption         =   "Date"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column02 
            DataField       =   "THDOC"
            Caption         =   "Doc No"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column03 
            DataField       =   "TCDSC"
            Caption         =   "Trans Type"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column04 
            DataField       =   "THQTY"
            Caption         =   "Quanlity "
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column05 
            DataField       =   "THWGT"
            Caption         =   "Weight"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column06 
            DataField       =   "THBLU"
            Caption         =   "BAL QTY"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column07 
            DataField       =   "THBLW"
            Caption         =   "BAL WGT"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            BeginProperty Column00 
               ColumnWidth     =   14.74
            EndProperty
            BeginProperty Column01 
               ColumnWidth     =   1244.976
            EndProperty
            BeginProperty Column02 
               ColumnWidth     =   1454.74
            EndProperty
            BeginProperty Column03 
               ColumnWidth     =   2234.835
            EndProperty
            BeginProperty Column04 
               ColumnWidth     =   1214.929
            EndProperty
            BeginProperty Column05 
               ColumnWidth     =   1200.189
            EndProperty
            BeginProperty Column06 
               ColumnWidth     =   1335.118
            EndProperty
            BeginProperty Column07 
               ColumnWidth     =   1289.764
            EndProperty
         EndProperty
      End
      Begin MSDataGridLib.DataGrid grdLot 
         Bindings        =   "frmINV300.frx":00AF
         Height          =   5085
         Left            =   90
         TabIndex        =   59
         Top             =   495
         Width           =   10980
         _ExtentX        =   19368
         _ExtentY        =   8969
         _Version        =   393216
         BackColor       =   -2147483624
         HeadLines       =   1
         RowHeight       =   15
         FormatLocked    =   -1  'True
         BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ColumnCount     =   12
         BeginProperty Column00 
            DataField       =   ""
            Caption         =   ""
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column01 
            DataField       =   "ILLOT"
            Caption         =   "Lot"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column02 
            DataField       =   "ILOBU"
            Caption         =   "OB Unt"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column03 
            DataField       =   "ILOBW"
            Caption         =   "ON Wgt"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column04 
            DataField       =   "ILRCU"
            Caption         =   "RC Unt"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column05 
            DataField       =   "ILRCU"
            Caption         =   "RC Wgt"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column06 
            DataField       =   "ILISU"
            Caption         =   "IS Unt"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column07 
            DataField       =   "ILISW"
            Caption         =   "IS Wgt"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column08 
            DataField       =   "ILAJU"
            Caption         =   "AJ Unt"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column09 
            DataField       =   "ILAJW"
            Caption         =   "AJ Wgt"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column10 
            DataField       =   "OnhandU"
            Caption         =   "Bal Unt"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column11 
            DataField       =   "OnhandW"
            Caption         =   "Bal Wgt"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   1036
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            BeginProperty Column00 
               ColumnWidth     =   14.74
            EndProperty
            BeginProperty Column01 
               ColumnWidth     =   1739.906
            EndProperty
            BeginProperty Column02 
               ColumnWidth     =   824.882
            EndProperty
            BeginProperty Column03 
               ColumnWidth     =   870.236
            EndProperty
            BeginProperty Column04 
               ColumnWidth     =   884.976
            EndProperty
            BeginProperty Column05 
               ColumnWidth     =   824.882
            EndProperty
            BeginProperty Column06 
               ColumnWidth     =   824.882
            EndProperty
            BeginProperty Column07 
               ColumnWidth     =   854.929
            EndProperty
            BeginProperty Column08 
               ColumnWidth     =   884.976
            EndProperty
            BeginProperty Column09 
               ColumnWidth     =   840.189
            EndProperty
            BeginProperty Column10 
               ColumnWidth     =   794.835
            EndProperty
            BeginProperty Column11 
               ColumnWidth     =   975.118
            EndProperty
         EndProperty
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "YTD Issused"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   21
         Left            =   -74610
         TabIndex        =   58
         Top             =   3945
         Width           =   1650
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "YTD Sold"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   19
         Left            =   -74610
         TabIndex        =   40
         Top             =   5070
         Width           =   990
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "MTD Sold"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   18
         Left            =   -74610
         TabIndex        =   39
         Top             =   4695
         Width           =   1650
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "Weight"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   17
         Left            =   -66975
         TabIndex        =   31
         Top             =   2820
         Width           =   630
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "Unit"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   16
         Left            =   -68055
         TabIndex        =   30
         Top             =   2835
         Width           =   555
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "Weight"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   15
         Left            =   -71460
         TabIndex        =   29
         Top             =   2445
         Width           =   630
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "Unit"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   14
         Left            =   -72465
         TabIndex        =   28
         Top             =   2460
         Width           =   390
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "Available"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   13
         Left            =   -69570
         TabIndex        =   17
         Top             =   4275
         Width           =   990
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "On order"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   12
         Left            =   -69570
         TabIndex        =   16
         Top             =   3795
         Width           =   1140
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "On hand"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   11
         Left            =   -69570
         TabIndex        =   15
         Top             =   3345
         Width           =   885
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "MTD Adjusted"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   10
         Left            =   -74610
         TabIndex        =   13
         Top             =   4275
         Width           =   1485
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "MTD Issused"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   9
         Left            =   -74610
         TabIndex        =   12
         Top             =   3585
         Width           =   1650
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "MTD Received"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   8
         Left            =   -74610
         TabIndex        =   11
         Top             =   3195
         Width           =   1485
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "MTD Open Balance"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   7
         Left            =   -74610
         TabIndex        =   10
         Top             =   2850
         Width           =   1650
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "Last Update"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   5
         Left            =   -70710
         TabIndex        =   9
         Top             =   2025
         Width           =   1110
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "Group"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   4
         Left            =   -74610
         TabIndex        =   8
         Top             =   1950
         Width           =   555
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "Class"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   3
         Left            =   -70710
         TabIndex        =   7
         Top             =   1470
         Width           =   555
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "Type"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   2
         Left            =   -74610
         TabIndex        =   6
         Top             =   1485
         Width           =   555
      End
      Begin VB.Label lbl 
         BackStyle       =   0  'Transparent
         Caption         =   "Item No"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   6
         Left            =   -72855
         TabIndex        =   5
         Top             =   630
         Width           =   750
      End
   End
   Begin VB.Label WHCode 
      BackColor       =   &H00800000&
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   285
      Left            =   3945
      TabIndex        =   67
      Top             =   1185
      Width           =   1185
   End
   Begin VB.Label lbl 
      BackStyle       =   0  'Transparent
      Caption         =   "Lot No"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   7.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Index           =   23
      Left            =   8115
      TabIndex        =   66
      Top             =   1170
      Width           =   615
   End
   Begin VB.Label LOTNo 
      BackColor       =   &H00800000&
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   300
      Left            =   8850
      TabIndex        =   65
      Top             =   1155
      Width           =   1290
   End
   Begin VB.Label lbl 
      BackStyle       =   0  'Transparent
      Caption         =   "Ware house"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   7.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Index           =   22
      Left            =   2730
      TabIndex        =   64
      Top             =   1200
      Width           =   1095
   End
   Begin VB.Label WHDSC 
      BackColor       =   &H00800000&
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   5160
      TabIndex        =   63
      Top             =   1185
      Width           =   2415
   End
   Begin VB.Label lbl 
      BackStyle       =   0  'Transparent
      Caption         =   "Item No"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   7.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Index           =   20
      Left            =   3075
      TabIndex        =   62
      Top             =   900
      Width           =   750
   End
   Begin VB.Label ItemCode 
      BackColor       =   &H00800000&
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   285
      Left            =   3945
      TabIndex        =   61
      Top             =   885
      Width           =   1185
   End
   Begin VB.Label ItemDsc 
      BackColor       =   &H00800000&
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   5160
      TabIndex        =   60
      Top             =   900
      Width           =   3510
   End
   Begin VB.Label lbl 
      BackStyle       =   0  'Transparent
      Caption         =   "Inventory Status Inquiry"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   16.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00E0E0E0&
      Height          =   495
      Index           =   1
      Left            =   1215
      TabIndex        =   1
      Top             =   420
      Width           =   5010
   End
   Begin VB.Label lbl 
      BackStyle       =   0  'Transparent
      Caption         =   "INV300"
      BeginProperty Font 
         Name            =   "VNI-Present"
         Size            =   18
         Charset         =   0
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00E0E0E0&
      Height          =   405
      Index           =   0
      Left            =   75
      TabIndex        =   0
      Top             =   0
      Width           =   1980
   End
End
Attribute VB_Name = "frmINV300"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cboIMITN_Click(Area As Integer)
If Area = 2 Then
    txtIMITN = cboIMITN.BoundText
    txtIMITD = cboIMITN.Text
    ItemCode = txtIMITN
    ItemDsc = txtIMITD
    WHCode = ""
    WHDSC = ""
    LOTNo = ""
    ReadToScreenIIM
    ReadToScreenWH
    ReadToScreenLOT
    ReadToHistory
End If
End Sub

Private Sub cmdExit_Click()
Unload frmINV300
End Sub

Private Sub cmdIIMHis_Click()
TabInventory.Tab = 3
End Sub

Private Sub cmdIIMLot_Click()
ReadToScreenLOT
TabInventory.Tab = 2
End Sub

Private Sub cmdIIMWH_Click()
ReadToScreenWH
TabInventory.Tab = 1
End Sub

Private Sub cmdWHHis_Click()
TabInventory.Tab = 3
End Sub

Private Sub cmdWHLot_Click()

TabInventory.Tab = 2
End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = ConnectString
Adodc1.ConnectionTimeout = 10
Adodc1.RecordSource = "SELECT * FROM IIM WHERE IMRID<>'IZ'"
Adodc1.Refresh
End Sub

Private Sub grdLot_DblClick()
LOTNo = grdLot.Columns(1)
ReadToHistory

TabInventory.Tab = 3
End Sub

Private Sub grdWarehouse_DblClick()
WHCode = grdWarehouse.Columns(1)
WHDSC = grdWarehouse.Columns(2)
ReadToScreenLOT
ReadToHistory

TabInventory.Tab = 2
End Sub

Private Sub txtIMITN_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Dim Result As String
    Result = Find("IIM", "IMITD", "WHERE IMITN='" & txtIMITN & "'")
    If Result = "" Then
        cboIMITN.Visible = True
        cboIMITN.SetFocus
    Else
        txtIMITD = Result
        ItemCode = txtIMITN
        ItemDsc = txtIMITD
        WHCode = ""
        WHDSC = ""
        LOTNo = ""
        cboIMITN.Visible = False
        ReadToScreenIIM
        ReadToScreenWH
        ReadToScreenLOT
        ReadToHistory
    End If
   
End If
End Sub
Sub ReadToScreenIIM()
Dim RecIIM As Recordset
Set RecIIM = DBconn.Execute("Select * from IIM where IMITN='" & txtIMITN & "'")
With RecIIM
    txtIMTYP = !imtyp
    txtTPDSC = Find("ITP", "TPDSC", " WHERE TPTYP='" & txtIMTYP & "'")
    txtIMCLC = !imclc
    txtCLDSC = Find("ICL", "CLDSC", " WHERE CLCLC='" & txtIMCLC & "'")
    txtIMPGC = IIf(IsNull(!IMPGC), "", !IMPGC)
    txtIMLDT = IIf(IsNull(!IMLDT), "", !IMLDT)
    txtIMOBU = !IMOBU
    txtIMOBW = !IMOBW
    txtIMRCU = !IMRCU
    txtIMRCW = !IMRCW
    txtIMISU = !IMISU
    txtIMISW = !IMISW
    txtIMYIU = IIf(IsNull(!IMYIU), 0, !IMYIU)
    txtIMYIW = IIf(IsNull(!IMYIW), 0, !IMYIW)
    txtIMAJU = IIf(IsNull(!IMAJU), 0, !IMAJU)
    txtIMAJW = IIf(IsNull(!IMAJW), 0, !IMAJW)
    txtIMSLU = IIf(IsNull(!IMSLU), 0, !IMSLU)
    txtIMSLW = IIf(IsNull(!IMSLW), 0, !IMSLW)
    txtIMYSU = IIf(IsNull(!IMYSU), 0, !IMYSU)
    txtIMYSW = IIf(IsNull(!IMYSW), 0, !IMYSW)
    txtOnhandU = !IMOBU + !IMRCU + !IMAJU - !IMISU
    txtOnhandW = !IMOBW + !IMRCW + !IMAJW - !IMISW
    txtIMOOU = !IMOOU
    txtIMOOW = !IMOOW
    txtAvailableU = Val(txtOnhandU) - IIf(IsNull(!IMCOU), 0, !IMCOU) - IIf(IsNull(!IMALU), 0, !IMALU)
    txtAvailableW = Val(txtOnhandW) - IIf(IsNull(!IMCOW), 0, !IMCOW) - IIf(IsNull(!IMALW), 0, !IMALW)
End With
End Sub
Sub ReadToScreenWH()
Adodc2.ConnectionString = ConnectString
Adodc2.ConnectionTimeout = 10
Adodc2.RecordSource = "SELECT IWM.*, IWI.IWOBU , IWI.IWRCU," & _
    " IWI.IWISU, IWI.IWAJU , IWI.IWSLU , " & _
    " IWI.IWOBW , IWI.IWRCW , IWI.IWISW , IWI.IWAJW , " & _
    " IWI.IWSLW , IWI.IWYIU , IWI.IWYIW , IWI.IWYSU , " & _
    " IWI.IWYSW , IWI.IWRID , IWI.IWLDT , IWI.IWLUS , " & _
    " IWOBU + IWRCU - IWISU + IWAJU AS OnhandU, " & _
    " IWOBW + IWRCW - IWISW + IWAJW AS OnhandW " & _
    " From IWI INNER JOIN IWM ON IWI.IWWHC=IWM.WMWHC " & _
    " where IWITN='" & txtIMITN & "'"
    
Adodc2.Refresh
End Sub
Sub ReadToScreenLOT()
strCond = ""
If WHCode <> "" Then
    strCond = " AND ILI.ILWHC='" & WHCode & "'"
End If
Adodc3.ConnectionString = ConnectString
Adodc3.ConnectionTimeout = 10
Adodc3.RecordSource = "SELECT ILM.LMPDT , ILM.LMEDT  , " & _
    " ILM.LMSTT , ILM.LMRID , ILM.LMLDT , ILM.LMLUS , ILI.* ," & _
    " ILOBU + ILRCU - ILISU + ILAJU AS OnhandU, " & _
    " ILOBW + ILRCW - ILISW + ILAJW AS OnhandW " & _
    " FROM ILI INNER JOIN ILM ON ILI.ILLOT = ILM.LMLOT " & _
    " where ILITN='" & txtIMITN & "'" & strCond
Adodc3.Refresh
End Sub
Sub ReadToHistory()
Dim RecHistory As ADODB.Recordset, RecACN, RecITC As Recordset, BeginDate, OpenBALU, OpenBALW
Set RecACN = DBconn.Execute("Select * from ACN WHERE CNCID='" & COMPANYID & "'")
BeginDate = Format(RecACN!CNLCD, "yyyy-mm-dd hh:mm:ss")
DBconn.Execute ("Delete  from History where THPC=" & MAYSO)
strCond = " WHERE THITN='" & txtIMITN & "' AND THDTE>='" & BeginDate & "'"
If WHCode <> "" Then strCond = strCond & " AND THWHC='" & WHCode & "'"
If LOTNo <> "" Then strCond = strCond & " And THLTN='" & LOTNo & "'"
SQL = "Insert into History(THITN,THTSQ,THTID,THDOC,THTTC,THDTE" & _
 ",THWHC,THLTN,THQTY,THWGT,THCST,THCVN,THREF,THREM,THLUS,THLDT,THBLU,THBLW,THPC)" & _
 " Select THITN,THTSQ,THTID,THDOC,THTTC,THDTE" & _
 ",THWHC,THLTN,THQTY,THWGT,THCST,THCVN,THREF,THREM,THLUS,THLDT,0,0," & MAYSO & _
 " From ITH " & strCond
'MsgBox SQL
DBconn.Execute (SQL)
Set RecHistory = New ADODB.Recordset
RecHistory.Open "SELECT * FROM History order by THDTE", DBconn, adOpenKeyset, adLockOptimistic, adCmdText
OpenBALW = Val(txtIMOBW)
OpenBALU = Val(txtIMOBU)
If Not RecHistory.EOF Then
    RecHistory.MoveFirst
    Do While Not RecHistory.EOF
        Set RecITC = DBconn.Execute("SELECT * FROM ITC WHERE TCTTC='" & RecHistory!THTTC & "'")
        If RecITC.EOF Then
            MsgBox "Not have Effect Transaction " & RecHistory!THTTC
            Exit Sub
        End If
        If RecITC!TCEFR Or RecITC!TCEFA Or RecITC!TCEFI Then
            If RecITC!TCEFI Then
                OpenBALW = OpenBALW - RecHistory!THWGT
                OpenBALU = OpenBALU - RecHistory!THQTY
            Else
                OpenBALW = OpenBALW + RecHistory!THWGT
                OpenBALU = OpenBALU + RecHistory!THQTY
            End If
        End If
        RecHistory!THBLU = OpenBALU
        RecHistory!THBLW = OpenBALW
        RecHistory.Update
        RecHistory.MoveNext
    Loop
    Adodc4.ConnectionString = ConnectString
    Adodc4.ConnectionTimeout = 10
    Adodc4.RecordSource = "SELECT HISTORY.*, ITC.TCDSC" & _
        " FROM ITC INNER JOIN HISTORY ON ITC.TCTTC = HISTORY.THTTC where THPC=" & MAYSO & " order by THDTE"
    Adodc4.Refresh
End If
End Sub
